Определить, если в числе цифры 3, 4 и 5- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
PRINT TAB(36)"zadacha1"
PRINT TAB(32)"есть ли цифры 3, 4 и 5?"
PRINT "vvedite a"
INPUT A
IF A>9999 OR A<1000 THEN GOTO 10
K=A MOD 10
G=INT(A/10)
Z=Y MOD 10
E=INT (A/100)
Y= E MOD 10
X=INT(A/1000)
IF X=5 OR Y=5 OR Z=5 OR K=5 OR X=4 OR Y=4 OR Z=4 OR K=4 OR X=3 OR Y=3 OR Z=3 OR K=3 THEN K$="v zadannom chisle ect cifri 3,4,5- pricitctv" ELSE K$="net cifr"
LOCATE 20,1 : PRINT"Ответ: ";K$

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment